home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / PRINT.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  1.4 KB  |  72 lines
  1. SET ECHO OFF
  2. *(   PRINT.CMD       FROM  MAIN  MENU   MAIN.CMD        )
  3. *(   RICHARD T. TRABAND                                 )
  4. *(                                                      )
  5. NEW
  6. TYPE b:PRINT.MNU
  7. FILLIN MAIN USING "ENTER CHOICE  " AT 19 30
  8. IF MAIN = 0 THEN
  9.    QUIT TO b:RCHECK.CMD
  10. ENDIF
  11. IF MAIN = 99 THEN
  12.    QUIT
  13. ENDIF
  14. IF MAIN = 1 THEN
  15.    INPUT b:PRINT1.CMD
  16. ENDIF
  17. IF MAIN = 2 THEN
  18.    INPUT b:PRINT2.CMD
  19. ENDIF
  20. IF MAIN = 3 THEN
  21.    INPUT b:PRINT3.CMD
  22. ENDIF
  23. IF MAIN = 4 THEN
  24.    INPUT b:PRINT4.CMD
  25. ENDIF
  26. IF MAIN = 5 THEN
  27.    INPUT b:PRINT5.CMD
  28. ENDIF
  29. IF MAIN = 6 THEN
  30.    INPUT b:PRINT6.CMD
  31. ENDIF
  32. IF MAIN = 7 THEN
  33.    INPUT b:PRINT7.CMD
  34. ENDIF
  35. IF MAIN = 8 THEN
  36.    INPUT b:PRINT8.CMD
  37. ENDIF
  38. IF MAIN = 9 THEN
  39.    INPUT b:PRINT9.CMD
  40. ENDIF
  41. IF MAIN = 10 THEN
  42.    QUIT TO b:PRINT.CMD
  43. ENDIF
  44. IF MAIN = 11 THEN
  45.    INPUT b:PRINT1.CMD
  46. ENDIF
  47. IF MAIN = 12 THEN
  48.    INPUT b:PRINT2.CMD
  49. ENDIF
  50. IF MAIN = 13 THEN
  51.    INPUT b:PRINT3.CMD
  52. ENDIF
  53. IF MAIN = 14 THEN
  54.    INPUT b:PRINT4.CMD
  55. ENDIF
  56. IF MAIN = 15 THEN
  57.    INPUT b:PRINT5.CMD
  58. ENDIF
  59. IF MAIN = 16 THEN
  60.    INPUT b:PRINT6.CMD
  61. ENDIF
  62. IF MAIN = 17 THEN
  63.    INPUT b:PRINT7.CMD
  64. ENDIF
  65. IF MAIN = 18 THEN
  66.    INPUT b:PRINT8.CMD
  67. ENDIF
  68. IF MAIN = 19 THEN
  69.    INPUT b:PRINT9.CMD
  70. ENDIF
  71. QUIT TO b:PRINT.CMD
  72.